Creating heatmaps for predictions within subtypes

basal<-subset(pred_sub,pred_sub$PAM50.mRNA=="Basal-like")
prediction_heatmap(x=basal,type = "Basal")

her<-subset(pred_sub,pred_sub$PAM50.mRNA=="HER2-enriched")
prediction_heatmap(x=her,type = "ERBB2 Amplified")

luminal<-subset(pred_sub,pred_sub$PAM50.mRNA=="Luminal A"|pred_sub$PAM50.mRNA=="Luminal B")
prediction_heatmap(x=luminal,type = "Luminal")

normal<-subset(pred_sub,pred_sub$PAM50.mRNA=="Normal-like")
prediction_heatmap(x=normal,type = "Normal-like")

This analysis was run on Mon Mar 16 02:09:07 2015